<%
Dim intLunghezza
intLunghezza = 200
Dim strSQL
strSQL = "select datepart(dd,dateadd(dd,TServizio.validita,TServizio.datains)) as gscadenza, datepart(mm,dateadd(dd,TServizio.validita,TServizio.datains)) as mscadenza, datepart(yy,dateadd(dd,TServizio.validita,TServizio.datains)) as ascadenza, tcategoria.nome as categoria,ragione,email,web,tservizio.descrizione,parole_chiavi,prezzo,validita,segnalazioni,offerta from tservizio inner join tcategoria on tcategoria.cod=tservizio.cod_categoria where offerta=1 and tservizio.cod="&Request.Querystring("cod")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = conn
rs.CursorType = 0
rs.LockType = 1
rs.Source = strSQL
rs.Open
%>